home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00007.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  737 b   |  28 lines
  1. on exitFrame
  2.   global ppl, mnv, objc, foes, pwr, advance, psyprop
  3.   psyprop = 0
  4.   advance = 1
  5.   puppetSprite(1, 1)
  6.   ppl = [10, 11, 12, 13]
  7.   mnv = [0, 0, 0, 0, 0, 0]
  8.   objc = ["jmpchr", "brkglss", "cutpic"]
  9.   set the keyUpScript to "psyreg"
  10.   set the keyDownScript to "psyregb"
  11.   repeat with i = 10 to 13
  12.     set the constraint of sprite i to 39
  13.     puppetSprite(i, 1)
  14.   end repeat
  15.   sprite(30).visible = 0
  16.   sprite(2).visible = 0
  17.   sprite(3).visible = 0
  18.   foes = [43, 76, 103]
  19.   set the locH of sprite 11 to 660
  20.   set the locV of sprite 11 to 370
  21.   set the locH of sprite 12 to 680
  22.   set the locV of sprite 12 to 350
  23.   set the locH of sprite 13 to -20
  24.   set the locV of sprite 13 to 400
  25.   puppetSprite(31, 0)
  26.   puppetSprite(32, 1)
  27. end
  28.